Imports System.Configuration.ConfigurationSettings

Public Class SendShoppingList
    Inherits MailBase

    Protected Overrides Sub PrepareFields()
        Me.Fields("#subject#") = AppSettings("EmailTemplate.SendShoppingList.Subject")
        Me.Subject = Me.Fields("#subject#")
        Me.Receiver = CustomerEmail
        Me.Cc = AppSettings("ReceiverEmailsShoppingList")
    End Sub

    Public Property CompanyName() As String
        Set(ByVal Value As String)
            Me.Fields("#CompanyName#") = Value
        End Set
        Get
            Return Me.Fields("#CompanyName#")
        End Get
    End Property

    Public Property CustomerName() As String
        Set(ByVal Value As String)
            Me.Fields("#CustomerName#") = Value
        End Set
        Get
            Return Me.Fields("#CustomerName#")
        End Get
    End Property

    Public Property CustomerEmail() As String
        Set(ByVal Value As String)
            Me.Fields("#CustomerEmail#") = Value
        End Set
        Get
            Return Me.Fields("#CustomerEmail#")
        End Get
    End Property

    Public Property Address() As String
        Set(ByVal Value As String)
            Me.Fields("#Address#") = Value
        End Set
        Get
            Return Me.Fields("#Address#")
        End Get
    End Property

    Public Property PhoneNumber() As String
        Set(ByVal Value As String)
            Me.Fields("#PhoneNumber#") = Value
        End Set
        Get
            Return Me.Fields("#PhoneNumber#")
        End Get
    End Property

    Public Property ShoppingList() As String
        Set(ByVal Value As String)
            Me.Fields("#ShoppingList#") = Value
        End Set
        Get
            Return Me.Fields("#ShoppingList#")
        End Get
    End Property

    Public Property OrderNumber() As String
        Set(ByVal Value As String)
            Me.Fields("#OrderNumber#") = Value
        End Set
        Get
            Return Me.Fields("#OrderNumber#")
        End Get
    End Property

    Public Property OrderDate() As String
        Set(ByVal Value As String)
            Me.Fields("#OrderDate#") = Value
        End Set
        Get
            Return Me.Fields("#OrderDate#")
        End Get
    End Property

    Public Property ConsolidationPoint() As String
        Set(ByVal Value As String)
            Me.Fields("#ConsolidationPoint#") = Value
        End Set
        Get
            Return Me.Fields("#ConsolidationPoint#")
        End Get
    End Property

    Public Property TotalPrice() As String
        Set(ByVal Value As String)
            Me.Fields("#TotalPrice#") = Value
        End Set
        Get
            Return Me.Fields("#TotalPrice#")
        End Get
    End Property

    Public Property TotalVolAvail() As String
        Set(ByVal Value As String)
            Me.Fields("#TotalVolAvail#") = Value
        End Set
        Get
            Return Me.Fields("#TotalVolAvail#")
        End Get
    End Property

    Public Property TotalVolSel() As String
        Set(ByVal Value As String)
            Me.Fields("#TotalVolSel#") = Value
        End Set
        Get
            Return Me.Fields("#TotalVolSel#")
        End Get
    End Property

    Public Property GoodWeight() As String
        Set(ByVal Value As String)
            Me.Fields("#GoodWeight#") = Value
        End Set
        Get
            Return Me.Fields("#GoodWeight#")
        End Get
    End Property

    Public Overrides ReadOnly Property MailTemplatePath() As String
        Get
            Return System.IO.Path.Combine(Config.TemplateBaseFolder, _
                AppSettings("EmailTemplate.SendShoppingList.Location"))
        End Get
    End Property
End Class
